home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 43 / 043.d81 / color select (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  5.0 KB  |  159 lines
  1. 5 open3,8,3,"features":get#3,a$,b$,ns$:close3:ns=val(ns$)
  2. 6 print"[147]"
  3. 10 ifpeek(788)=49 and peek(789)=234 anda=0 then a=1:load"raster/irq 3.0.o",8,1
  4. 15 poke53280,0:poke53281,0
  5. 16 poke53274,0
  6. 20 gosub 1000
  7. 21 poke253,5
  8. 22 poke254,146:v(2)=bo:v(3)=te:v(1)=bk
  9. 23 poke251,bk:poke252,bo:poke646,te
  10. 30 sys32768:print"[147]":gosub40:gosub48:gosub50:gosub64:goto70
  11. 40 poke646,v(3):print"             [195][207][204][207][210] [211][197][204][197][195][212]
  12. 41 [153]"             tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  13. 42 print"  [212]his portion of [195][213][211][212][207][205][201][218][201][206][199] [204][207][193][196][211][212][193][210]
  14. 43 [153]" is optional.  (NULL)ou may select the color
  15. 44 print" for the border, screen and the text
  16. 45 [153]" to fit your taste.  asceel free to
  17. 46 print" change this as often as you wish or
  18. 47 [153]"closeneed to.":[142]
  19. 48 [153]""
  20. 49 [151]646,v(2):[153]"                                        wait";:[142]
  21. 50 [153]"listortantantantantantantantantantantantantantantantantantan^ortantantantantantantantantantantantantantantantantantan^";
  22. 51 [153]"list(NULL) list(NULL)(NULL)   right$(NULL)(NULL)(NULL)(NULL)(NULL)len(NULL)right$(NULL)(NULL)(NULL)   list(NULL)";
  23. 52 [153]"list(NULL)thento  open clr   sys for verify def poke print# print cont list wait list(NULL)(NULL)  print# tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(   list(NULL)";
  24. 53 [153]"list(NULL) list(NULL)(NULL) len(NULL)(NULL)(NULL) keys select list(NULL)";
  25. 54 [153]"list(NULL) list(NULL)(NULL)                  list(NULL)";
  26. 55 [153]"list(NULL)thento  open clr   sys for verify def poke print# print cont list wait list(NULL)(NULL) (NULL)(NULL)/str$(NULL)(NULL)(NULL) :     close  list(NULL)";
  27. 56 [153]"list(NULL)list(NULL)(NULL)  (NULL)oves index box list(NULL)";
  28. 57 [153]"list(NULL)list(NULL)(NULL)                  list(NULL)";
  29. 58 [153]"list(NULL)thento  open clr   sys for verify def poke print# print cont list wait list(NULL)(NULL) (NULL)right$chr$left$(NULL)/(NULL)valasc(NULL) :     list(NULL)";
  30. 59 [153]"list(NULL)list(NULL)(NULL)  (NULL)elects color   list(NULL)";
  31. 60 [153]"list(NULL)list(NULL)(NULL)  for that box    list(NULL)";
  32. 61 [153]"list(NULL)                  list(NULL)(NULL)                  list(NULL)";
  33. 62 [153]"list/tantantantantantantantantantantantantantantantantantanexp/tantantantantantantantantantantantantantantantantantan"
  34. 63 [151]2023,125:[151]56295,15:p$[178]"":[142]
  35. 64 a$(1)[178]"  (NULL)len(NULL)valval(NULL) len(NULL)(NULL)(NULL)(NULL)  ":p(1)[178]1626:r(1)[178]251
  36. 65 a$(2)[178]"  peek(NULL)(NULL)str$val(NULL) len(NULL)(NULL)(NULL)(NULL)  ":p(2)[178]1746:r(2)[178]252
  37. 66 a$(3)[178]"   (NULL)val(NULL)(NULL) len(NULL)(NULL)(NULL)(NULL)   ":p(3)[178]1866:r(3)[178]646
  38. 67 a$(4)[178]"    (NULL)val(NULL)(NULL) (NULL)val(NULL)(NULL)   ":a$(5)[178]" (NULL)val(NULL)(NULL)? ((NULL) (NULL)r (NULL)) "
  39. 68 [129]x[178]1[164]4:[153]p$"print#"a$(x):[130]:p[178]1:a[178]0
  40. 69 [129]x[178]1[164]3:[151]p(x)[170]v(x),30:[151]p(x)[170]v(x)[170]54272,1:[130]:[142]
  41. 70 [153]p$"print#"a$(p):p[178]p[170]a:[153]p$"cont"a$(p)
  42. 71 [139]p[178]4 [167] 150
  43. 75 [161]a$:[139]a$[178]""[167]75
  44. 80 [139]a$[178]""[175]p[179]4 [167] a[178]1:[137]70
  45. 81 [139]a$[178]"on"[175]p[177]1 [167]a[178][171]1:[137]70
  46. 82 [139]a$[178]""[175]v(p)[179]15 [167] a[178]1:[137]90
  47. 83 [139]a$[178]"cmd"[175]v(p)[177]0  [167] a[178][171]1:[137]90
  48. 89 [137]75
  49. 90 [151]p(p)[170]v(p),32:v(p)[178]v(p)[170]a
  50. 92 [151]p(p)[170]v(p),30:[151]p(p)[170]v(p)[170]54272,1
  51. 93 [151]r(p),v(p)
  52. 94 [139]p[178]3 [167] [141]40
  53. 95 [139]p[178]2 [167] [141]48
  54. 96 [151] r(p),v(p)
  55. 97 [139] (v(1)[178]v(3)) [167] 100
  56. 99 [137]75
  57. 100 [139] v(p)[170]a[177]15 [167] a[178][171]1
  58. 101 [139] v(p)[170]a[179]0 [167] a[178]1
  59. 115 [137] 90
  60. 150 [153]p$""a$(5);
  61. 160 [161]a$:[139]a$[178]""[167]160
  62. 161 [139]a$[178]"(NULL)"[176]a$[178]"y"[176]a$[178][199](13)[167]200
  63. 162 [139]a$[178]"n"[176]a$[178]"(NULL)"[176]a$[178]"on"[167]170
  64. 165 [137]160
  65. 170 [153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd                on":
  66. 171 [139]a$[178]"on"[167]a[178][171]1:[137]70
  67. 172 [137]75
  68. 200 tb$[178]"list":[153]p$"print#"a$(p)
  69. 201 [153]"list"tb$"ortantantantantantantantantantantantantantantantantantan^";
  70. 202 [153]tb$"list(NULL)def  (NULL)ake selection  list(NULL)";
  71. 203 [153]tb$"list(NULL)print  & press (NULL)val(NULL)(NULL)(NULL)(NULL)  list(NULL)";
  72. 204 [153]tb$"list(NULL)print#  tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(  list(NULL)";
  73. 205 [129]x[178]1[164]8:[153]tb$"list(NULL)                  list(NULL)";:[130]
  74. 220 [153]tb$"list/tantantantantantantantantantantantantantantantantantan"
  75. 225 [151]2023,125:[151]56295,15
  76. 227 p1$[178]""[170]tb$
  77. 230 s$(1)[178]"   (NULL)atn(NULL)val (NULL)val(NULL)(NULL)(NULL)   "
  78. 231 s$(2)[178]"  (NULL)val(NULL)val(NULL) (NULL)val(NULL)(NULL)(NULL)   "
  79. 233 s$(3)[178]"   valstr$right$(NULL) (NULL)val(NULL)(NULL)(NULL)   "
  80. 234 s$(4)[178]"  (NULL)(NULL)right$(NULL) (NULL)(NULL)close(NULL)val(NULL)(NULL)  "
  81. 250 [129]x[178]1[164]4:[153]p1$"print#"s$(x):[130]
  82. 260 p1[178]1:a[178]0
  83. 265 [153]p1$"print#"s$(p1):p1[178]p1[170]a:[153]p1$"cont"s$(p1)
  84. 270 [161]a$:[139]a$[178]""[167]270
  85. 271 [139]a$[178]""[175]p1[179]4 [167]a[178]1:[137]265
  86. 273 [139]a$[178]"on"[175]p1[177]1 [167]a[178][171]1:[137]265
  87. 275 [139]a$[178][199](13) [167] [145]p1 [137] 310,320,325,340
  88. 279 [137] 270
  89. 310 [129]y[178]1[164]ns
  90. 311 [141]500:[153]p$"  (NULL)lease insert side"y"of sys(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
  91. 312 [153]"    in the drive and press ((NULL)val(NULL)(NULL)(NULL)(NULL)).":[151]2023,32
  92. 313 [161]a$:[139]a$[179][177][199](13) [167] 313
  93. 314 [158]32768:[153]"load"
  94. 315 [141]5000
  95. 317 [139]si[179][177]y [167][158]32768:[153]"load":[141]40:[141]48:[141]50:[141]600:[137]311
  96. 318 [141]6000:[158]32768:[141]40:[141]48:[130]
  97. 319 [141]50:[129]x[178]1[164]4:[151]p(x)[170]v(x),30:[153]p$"print#"a$(x):[130]:[137] 200
  98. 320 [151]251,bk:[151]252,bo:[151]646,te
  99. 321 [129]x[178]1[164]4:[151]p(x)[170]v(x),32:[130]:v(3)[178]te:[141]40
  100. 322 v(1)[178]bk:v(2)[178]bo:v(3)[178]te:[141]48
  101. 323 [129]x[178]1[164]4:[151]p(x)[170]v(x),30:[130]
  102. 325 a[178][171]1:[141]50:[137]70
  103. 340 [139]v(1)[178]bk[175]v(2)[178]bo[175]v(3)[178]te [167] 400
  104. 341 [141] 500
  105. 342 [153]p$"    atnre you sure you want to quit       ";
  106. 343 [153]"  without saving your modifications ?";
  107. 344 [153]"       (NULL)lease select ((NULL))es (NULL)r ((NULL))o.":[151]2023,32
  108. 350 [161]a$:[139]a$[178]""[167]350
  109. 351 [139]a$[178]"n"[176]a$[178]"(NULL)"[167]360
  110. 352 [139]a$[178]"y"[176]a$[178]"(NULL)"[167] 410
  111. 355 [137] 350
  112. 360 [141]500:[141]50:[129]x[178]1[164]4:[151]p(x)[170]v(x),30:[130]:[153]p$"print#"a$(p):
  113. 361 [129]x[178]1[164]4:[153]p$"print#"a$(x):[130]:[137]200
  114. 400 [141]500:[153]p$""
  115. 401 [153]"    atnre you sure you wish to quit?"
  116. 402 [153]"     (NULL)lease enter ((NULL))es or ((NULL))o.":[151]2023,32
  117. 403 [161]a$:[139]a$[178]""[167]403
  118. 404 [139]a$[178]"n"[176]a$[178]"(NULL)"[167]360
  119. 405 [139]a$[179][177]"y"[167]403
  120. 410 [141]500:[153]p$"   (NULL)lease place side"ns"of sys(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
  121. 411 [153]"   into your drive and press (NULL)val(NULL)(NULL)(NULL)(NULL)."
  122. 412 [161]a$:[139]a$[179][177][199](13)[167]412
  123. 413 [158]32768:[153]"load":[141] 5000:[158]32768:[141]40:[141]48
  124. 415 [139] si[179][177]3 [167] 410
  125. 420 [158]32768:[153]"load"
  126. 421 [151]53280,6:[151]53281,6
  127. 430 [153]"load(NULL)lease (NULL)ait (NULL)hile (NULL)oading..."
  128. 431 [151]646,[194](53281)
  129. 435 [153]"load"[199](34)"custom ls boot"[199](34)",8":[153]"run"
  130. 440 [151]631,13:[151]632,13:[151]198,2:[128]
  131. 500 [153]p$"cmdcmdon";:[129]x[178]1[164]12:[153]"                                        ";
  132. 501 [130]:[151]2023,32:[153]"                                       ":[142]
  133. 600 [141]500:[153]p$"   (NULL)right$str$val (NULL)(NULL)(NULL) asc(NULL)(NULL)(NULL)str$ - (NULL)(NULL)valatn(NULL)val (NULL)(NULL)(NULL) atnchr$atnright$(NULL)   "
  134. 601 [151]2023,32:[129]d[178]1[164]1500:[130]:[142]
  135. 999 [128]
  136. 1000 [143]   -- get current setup --
  137. 1010 [159]15,8,15,"i0"
  138. 1011 [159]3,8,4,"setup"
  139. 1015 [132]3,d$(1),d$(2),d$(3),d$(5),d$(6),d$(7)
  140. 1020 bo[178][197](d$(1))
  141. 1023 bk[178][197](d$(2))
  142. 1025 te[178][197](d$(3))
  143. 1027 [160]3:[160]15
  144. 1029 [142]
  145. 5000 [143] -- check that side boys! ---
  146. 5001 [159]15,8,15,"i0":[160]15
  147. 5010 [159]2,8,2,"$":[129]i[178]0[164]156:[161]#2,a$:[130]
  148. 5011 [161]#2,a$:si[178][197](a$):[160]2
  149. 5020 [142]
  150. 6000 [143] --- write 'em out boys! ---
  151. 6010 [159]15,8,15,"i0"
  152. 6011 [159]3,8,4,"setup":cr$[178][199](13)
  153. 6020 [152]15,"p"[199](0)"";
  154. 6021 [152]3,v(2)cr$v(1)cr$v(3)cr$d$(4)cr$d$(5)cr$d$(6)cr$d$(7)cr$
  155. 6030 [160]3:[160]15:[142]
  156. 9000 [143] -  color select  v2.0   -
  157. 9010 [143]        (c) 1987
  158. 9011 [143] 8/11/87   ---  loadstar
  159.